home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / scripts.arc / PASSWORD.SLT < prev    next >
Encoding:
Text File  |  1988-10-25  |  1.7 KB  |  39 lines
  1. /////////////////////////////////////////////////////////////////////////
  2. //          PASSWORD.SLT  -  by Terry Robertson (October 1988)         //
  3. // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
  4. //                                                                     //
  5. //  This script sends the password for the current Dialling Directory  //
  6. //  entry to the host system.                                          //
  7. //                                                                     //
  8. //  It is not required where a log-on script is attached to the        //
  9. //  Directory entry but is useful when you are calling a board where   //
  10. //  you don't have a log-on script and can't remember the password.    //
  11. //                                                                     //
  12. //  Please note the script is written so that it will abort if you     //
  13. //  have not completed the relevant PASSWORD entry in the Dialling     //
  14. //  Directory.                                                         //
  15. //                                                                     //
  16. //  This script is most useful when it is "attached" to a function     //
  17. //  key.                                                               //
  18. //                                                                     //
  19. /////////////////////////////////////////////////////////////////////////
  20.  
  21.  
  22.  
  23.  
  24.  
  25. main()
  26.  
  27. {
  28.  if (not _entry_pass)                 // no pass, so didn't recog. board
  29.   {
  30.    alarm(1);
  31.    prints ("Sorry, I don't know the password for this BBS!");
  32.    return;
  33.   }
  34.  
  35.  cputs(_entry_pass);                  // send password
  36.  cputs("^M");
  37.  
  38. }
  39.